Исходный код

' Проверка что все обьекты в составе имеют одинаковый статус, 
' равный статусу текущего обьекта
Option Explicit

Dim curStatus      ' Статус текущего обьекта
Dim curStatusCount ' Обьектов с составе с текущим статусом
Dim objectsCount   ' Всего обьектов в составе

Set curStatus = ThisObject.Status
curStatusCount = ThisObject.Objects.ObjectsByStatus(curStatus).Count
objectsCount = ThisObject.Objects.Count
If curStatusCount = objectsCount Then 
  MsgBox "Все обьекты в составе имеют одинаковый статус"
Else
  MsgBox CStr(objectsCount - curStatusCount) + " обьектов состава имеют другой статус"
End If